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outp(addr, 0x8d); 

} 

y*************************** *********: ******* ************************ *****y 

r v 

r NAME : GET WEIGHT Get t e current weight */ 

/* AUTHOR : Ceiestine Vetti :al •/ 

/* DATE WRITTEN : 05-Nov-19 r <0 */ 

I* DATE REVISION : */ 

/* PURPOSE : To provide a | rocedure to get the current weight on a */ 

/* given scale in county. */ 

/* MODEL : This procedure uses direct control register accessing */ 

/* using the library calls inp and outp to get the count V 

/•VERSION :1.1 (Release 1. Version 1) V 

/'HISTORY : NUMBER DATE DESCRIPTION V 

/* Original 05-Nov-90 Designer Original Release */ 

/* AGREEMENTS : Development by: Designer (05-Nov-90) •/ 

/* Used by: Designer in the sequential ZIPLUS program */ 

/* REQUIREMENTS : To provide a C interface for the scale board. */ 
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I* DEPENDENCIES : Includes serial.h -- a definition file for sequential 7 



procedures forZIPSTER PLUS 



r PARAMETERS 
/* scale 
/• 
r 

/• ABSTRACT 
/* in counts. 

/* PERFORMANCE : Unknown 



7 

UNITS 
7 



: NAME DESCRIPTION 

The scale select control integer 
register address(SCALEA or 7 
SCALEB defined in serial.h) 7 
This procedure can be used to get the current weight 

7 

'/ 



*/ 



7 



/* RESTRICTIONS : The A to D scale board should be set to the base 
/* addresses given in "serial.h" 7 

/* ERRORS PROPAGATED: status = Valid if zero, else scale is unstable 
/• ERRORS HANDLED : None 7 



7 



r SAMPLE CALL : get_weight(SCALEA) 



7 



/* 



******* * «* ********** ** *** ** *** **** ** * ** * * ^*^ 



/* Copyright (c) 1990 

/* Pi' Electronics Corp. 

/* 9777 W Gulf Bank Rd 

/* Houston, Texas 77040-3113 

/* (713)896-5800 

r ALL RIGHTS RESERVED 

r 



7 
7 



************** / 



7 



y ** * ** * * * ***************** T******* ****** *** ******** ** 

/* read_scalereg(reg_r urn): Read Scale Board Data 

r */ 

r Function to read a re jister from the si ale. Passed argument is the V 
/* register number to bi input. 7 

r v 

/* Return: value inp jt from scale boj rd, char. 7 

unsigned char read_sci lereg(reg_num) 
unsigned char reg_nurr 

1 while (inp(REG STA" US) & DEV_BUiiY); /* be sure it isnt busy 7 
outp(REG_COMMAN ). reg_num); /* select the register 7 

while (:np(REG STAT JS) & DEV_BUf.Y); /* wait for not busy 7 
return( np(REG CONTROL)); /* return control reg value7 

} 

y ********* ********** ******* ************** *********************************y 

/* write scalereg( 3g_nu n.regdata); Write Scale Board Data */ 

r " */ 

/* Function to writ'* a register from the scale. Passed argument is the */ 

/* register number to be written and the data to write to it. V 

/* V 

/* Return: nott ing. */ 

y******************** ************** ****************************************y 

void write_scalereg(reg_num,regdata) 
unsigned char reg_num,regdata; 

while (inp(REG_STATUS) & DEV_BUSY); /* be sure it isnt busy */ 
outp(REG COMMAND, reg_num); /* select the register */ 

while (inp(REG_STATUS) & DEV_BUSY); /* wait for not busy */ 
outp(REG_CONTROL,regdata); /* update the control reg */ 

return; 
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void export FA* r ASLAL init_scale(void) 

{ 

/* initialize the scale board operating parameters */ 

write_scalereg(SEL_CHA_SCAN_RATE.CHA_SCAN_RATE); /* update scan rate 7 

write_scalereg(SEL_CHA_DEAD_BAND.CHA_DEADBAND); /• update the deadband */ 

write_scalereg(SEL_CHA_SMOOTH.CHA_SMOOTH_COEF); /* update smooth coeff. */ 

write_scalereg(SEL_CHB_SCAN_RATE.CHB_SCAN_RATE); /* update scan rate */ 

write_scalereg(SEL_CHB_DEAD_BAND.CHB_DEADBAND); /* update the deadband */ 

write_scalereg(SEL_CHB_SMOOTH.CHB_SMOOTH_COEF); /* update smooth coeff. */ 

/* Read weight calibration constants */ 
A_Cal_factor = (unsigned int)(read_scalereg(SEL_CHA_MSB_CAL) « 8) + 

read_scalereg(SEL_CHA_LSB_CAL); 
B_CalJactor = (unsigned int)(read_scalereg(SEL_CHB_MSB_CAL) « 8) + 

" read_scaleieg(SEL_CHB_LSB_CAL); " 
A_Null_weight = (unsigned int)(read scalereg(SEL_CHA_MSB_NUL) « 8) + 

read_scalereg(SEL_CHA_LSB_NUL); 
B_Null_weight = (unsigned int)(read_scalereg(SEL_CHB_MSB_NUL) « 8) + 
read_scalereg(SEl_CHB_LSB_NUL); 

/••** avoid zero divide when i cale is not calibrated! II V 
if (A_Cal_factor == 0) A_Cal_.factor = 1; 
if (BlCaQactor == 0) B_Cal_ factor - 1; 



unsigned charget_weight(weigh ; , scale_num) 
unsigned int FAR "weight; 
unsigned char scale_num; 

< 

unsigned long startjimt.; 
unsigned char ctable, sc lie; 

while (inp(REG_STATU :) & Dl iV_BUSY); /" be sure the scale isnt busy V 

if (scalejium ==1) /• l( ter sc le */ 
{ 

scale = SCALEA; 
stable = CHA_STABLE ; 
outp(REG_COMMANC .SCALEA); 

} 

else 
{ 

scale = SCALEB; 

stable = CHB_STABLE; 

outp(REG_COMMAND.SCALEB); 

) 

startjime = GetTickCountO; 

while (i n p(R EG_ST ATU S) & DEV.BUSY); 



i*grt ********************************* .******************» v ***" 



/* Function to read a stable wei( ht in counts from the given scale 
/* Return value: 0 -> successful */ 
/* 1 -> unsuccessful (n- t stable) */ 




U.S. Express Mail EG 532 186 526 US 




Page-91 



while ( !(inp(REG_STATUS) & stable) && (start Jime > GetTickCountO - 1000) ) 
; r Rcaii biaius diid wait until stable reading and not busy */ 

•weight = inpw(REGJ)ATA); 

if (inp(REG_STATUS) & stable) 
{ /• delay 1/4 second to see that stable remains */ 

startjime = GetTickCountO; 

while ( (inp(REG_STATUS) & stable) && (startjime > GetTickCountO - 250) ); 
} 

if (inp(REG_STATUS) & stable) 
return(O); 
else 

return(1); 

/*****»*^** ******************** *** ********** *»**^»»^ 

/* ZERO_SCALE : Function to zero the scales 7 
/* Return Value : 0 -> successfull 7 
/* 1 -> no stable reading 7 

/* 2 -> letter scale not empty */ 

unsigned char _export FAR PASCAL zero_scale(scale, changeZero) 
unsigned char scale; 
unsigned char changeZero; 
{ 

int loop_cou it=0, broke_loop_count=1; 
unsigned int curjare, null M wt*t; 

if (scale == ) /* letter scale 7 

null_wgt = \_Null_weight; 
else 

null_wgt = 3_NulLweight; 

for(;;) 
{ 

loop, count - 0; 

while (get weight(&curjare. scale) != 0) 
{ 

if ( )op_a unt ++ == 200) /* no stable reading after 200 reads */ 
r turn(1 ; 

} 

if (ge- weight(&curjare, scale) == 0) /* 2 succesive stable reading */ 
{ 

if (*<os(cur_tare - nulLwgt) < 40) 

t 'eak; 
if (s:ale == 1) 
{ 

if (changeZero ==1) 

null_wgt = curjare; 
else 

return(2); 

} 

else 

null_wgt = curjare; 
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} 

} 

if (scale == 1) 
{ 

AJslull_weight = curjare; 

write^scaleregCSELjcHA.MSB.NUL^unsigned char)(A_NulLweight » 8) ); 
write_scalereg(SEL_CHA_LSB_NUL ( (unsigned char)A_Null_weight); 

} 

else 
{ 

getjine_weight(&curjare, scale, 5);*/ 
B_NulLweight = curjare; 

write_scalereg(SEL_CHB M MSB_NUL ( (unsigned char)(B_Null_welght » 8) ); 
write^scalereg^SEL^CHB^LSB^NUL^unsignedchaOB^NulLweight); 

} 

return(O); 



7 

Function to read a stable weight in counts from the given scale */ 

Return value: 0 -> stable weight counts */ 

-1 -> unsuccessful (not stable) V 

+ve -> stable real weight ( when display =1) */ 
<*************************** ************** ********************************^ 

double _export FAR PASCAL find_weight(scal_num, calculated_weight, display) 

unsigned char scaljium; 

char FAR 'calculated j/vehht; 

unsigned char display; 

{ 

unsigned int wt_cnt; 
double wtjb, wtj)z; 
char wt_str[10], oz_str[1 ]; 
double 07_part ( Ib^part; 
unsigned int caljactor, i ull_wgt; 



if (geLwfcight(&wt_cnt, s ;aljium) == 0) /* stable reading V 
{ 

if (displ iy == 0) '* no need to find display weight */ 

return(O); 
else /* calculate real weight 7 
{ 

if (seal num=* 1) /* etter scale*/ 
{ 

caljactor = /^Caljactor; 
null_wgt = A Null_weight; 

} 

else 
{ 

caLfactor = B JSal Jactor; 
null_wgt = B_NulLweight; 

} 

wtjb = wt_cnt - null_wgt; 
if (wtjb > 60000) 

wtjb = 0; /* below null reading, set to zero */ 

else 
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wljb = wt_lb/cal_factor; 
wt_oz = wt_lb*16; 

/* Rate Classifier Mode Display */ 
if (wt_oz <= 16.0) /* less than 1 lb. incl. •/ 

wt_oz = wt_oz - 0.03; r subtract the maintenance tolerance */ 
else if (wt_oz <= 64.0) /* less than 4 lb. incl. V 

wt_oz = wt_oz - 0.12; /* subtract the maintenance tolerance */ 
else if (wt_oz <= 1 12.0) /* less than 7 lb. incl. */ 

wt_oz = wt_oz - 0.2; /* subtract the maintenance tolerance */ 
else /* less than 25lb. V 

wt_oz = wt_oz - 0.4; /* subtract the maintenance tolerance */ 

if (wt_oz < 0) /* avoid negative display */ 
wt_oz = 0.0; 

/* I am using maiiualjcvl instead of the */ 
/• wsprintf function for floating point numbers. */ 

// wsprintf(wt_str, "%6.2f, wt_oz); 

manual_fcvt(wt_oz, 6. 2, (LPSTR) wt_str); 

if(w oz<=32.0) /* less than or equal to 2 lb. */ 
{ 

if( ( Wt_str[5]-'0') <5) && ((wt_str(51-'0') l=0) ) 
{ 

w _str(5) = '5'; 

w oz = manual_a of(wt_str); 

} 

else if( (wt_str(5]-'0') >5 ) 
{ 

wl ,str[5] = '0'; 

wt str[4)swt_str[4j+1; 

if( >rt_str[4J- , 0') > £) 

{ 

wt_str[4) = '0*; 

v ;_oz = manual_atof(wt_str) + 1 .0; 

} 

els. 

vi oz = manual_atof(wt_str); 

} 

ilse if (wt_oz <= 112.0) /* less than 7 lb. */ 

if( (wt_str[5]-'0') >0 ) 
{ 

wt_str[51 = '0'; 

wt str[4] = wt_str[4)+1; 

if(7wt_str[4)-'0') > 9) 

{ 

wt_str[4l = '0'; 

wt_oz = manual_atof(wt_str) + 1 .0; 
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else 

wt_oz = manual_atof(wLstr); 
else 

wt_oz = manual_atof(wt_str); 

} 

else /* over 7 lb. */ 
{ 

if( (wl^strlSl-'O 1 ) >0 ) 
{ 

wt_str(5] = , 0 ( ; 
wt_str[4) = wt_str[4]+1; 
if( (wt.str^l-'O 1 ) > 9) 

wt_str[4] = 'O*; 

wt_oz = manual_atof(wt_str) + 1 .0; 
// wsprintf(wLstr ( "%6.2f\ wt_oz); 

manuar fcvt(w1_oz; 6, 2, (LPSTR) wl_str); ~ 

} 

} 

if( (wLstr[4]-'0') >0 ) 
{ 

wt_str[4] = wLstr(4] + ((wt_str[41-'0 , )%2); 

if( (wt str[4K0') > 9 ) 

{ 

wt_sl14] = , 0'; 

wt o; = manual atof(wt_str) + 1.0; 

} 

else 

wt_o; = manual_atof(H str); 

} 

else 

wt_oz = manual_atof(wt str); 

} 

if(wt_oz<= 0.05) 
wt_ »z = 0 0; 

wtjb -wt_oz/16.0; 

'/ oz_p irt = n odf(wtJb ( &lb_part); 

/* */ 

/* A n anual way of performing the modf function. */ 
/* */ 

lb_par = (double) ((int)wtjb); 

oz_pa. l = wtjb-lb_part; // NOTE: Don 1 ! need this statement 
// because of next statement 

oz_part = (wtjb - lb_part)*16 ; 

// wsprintf(calculated_weight, "%2d lb %5.2f oz M ( (int)lbj>art, oz_part); 
manual_fcvt(oz part, 5, 2, (LPSTR) oz_str); 

wsprintffcalculaFedjA/eight, "%2d lb %s oz", (int)lb_part. (LPSTR) oz_str); 
if (scaljium ==1)7* letter scale V 
return(wt_oz); 
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else 
retum(wt lb); 

} 

} 

else 

return(-1); 

} 



/* v 

/* 7 

/* manual_fcvt is a float conversion procedure. 7 

/* The parameters are: 7 

r 7 

/* FloaM/alue - the value to convert to a string. 7 

/* 7 

/* Digits - the total number of characters in 7 

/* the string, including the decimal 7 

/* * ' point and sign. * "7 

y* 7 

/* Precision - the number of digits after the 7 

/* decimal point to represent. 7 

/* 7 

/* Float_String - the result string. It must be 7 

/* memory set asside by the calling 7 

/* program. 7 

/* 7 



/* There is one known limitation: the number of digits 7 
of resolution including the digits before the 7 

* decimal point* must not exceed 38. The subscript 7 

* of the local char array digits_str can be modified 7 
" as needed foi this situation. 7 

7 

.* 7 

oid manuaLfcvi (double Float_Value, int Digits, int Precision, 
LPS : R Float_String) 

< 

ohar digits_str[40); 

long digits, prec i sion_multiplier=1L, int_part, float_part; 
nt i; 

or (i=0;i<Precision;i++) 
precision_multiplier *= 1 0L; 

if (FloaLValue*(double)precision_mulliplier<0.0) 
digits = (long) (Float_Value*(double)precision_multiplier 0.5); 
else 

digits = (long) (Float_Value*(double)precision_multiplier + 0.5); 

if (digits<0L) { 
lstrcpy(Float_String, "-"); 
digits = -digits; 

} 

else 

lstrcpy(FloaLString ( m '): 
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int_part = digits/precision_multiplier; 
float_part = digits-int_part*precision_multiplier; 

wsprintf(digits_str, "%d", int .part); 
lstrcat(Float_String. digits_str); 

lstrcat(Float_String, "."); 

wsprintf(digits_str, "%d", float_part); 
lstrcat(Float_Strlng, digits_str); 

if (lstrlen(Float_String)<DigUs) { 

lstrcpy(digits_str, " "); 

for (1=1 ;i<Digits-lstrlen(Float_String);i++) 
lstrcat(digits_str, " "); 

lstrcat(digits_str, Float_String); 

lstrcpy(Float String, digits_str); 
} " 



I* manual_atof work the same as the C function atof. */ 



double mani!al_atof(LPSTR Float_String) 
{ 

int i=0, len, done=0; 

double ret_val=0.0, dec_val"1.0, neg=1.0; 

len = lstrlen(Float_String); 

while (Float String[i]==' * && i<len) 

if (i>=. en) 
retur i ret_val; 

if (Flo-t_Strii Q|il==*-*> { 
neg= 1.0; 
i++; 

) 

while (r ; loat_String[i]!=^• && Wen) { 

if (Flcat_String[i] < '0 1 1| Float_String(i]>'9') 
return neg*ret_val; 

ret_val = 10.0*ret_val+(double)(Float_StringIi]-'0'); 
i++; 

} 

if (i>=len) 
return neg*ret_val; 
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i++; // Skip the decimal point 
wW!c (i<le,i) { 

if (Float_String(i) < '0' || FloaLStringIi)>'9') 
return neg"ret_val; 

dec_val = dec_val/10.0; 

ret val = reL^I+ftdoubleKFIoaLStringliJ-'O^ecj/al; 
i++~ 

} 

return neg*ret_val; 

} 

******************** *********************************************/ 



r 
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